unit udados;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TFdados = class(TDataModule)
    Tipos: TTable;
    TiposTipo: TStringField;
    DataSource1: TDataSource;
    Clientes: TTable;
    DataSource2: TDataSource;
    ClientesCnpj: TStringField;
    ClientesNome: TStringField;
    ClientesObs: TStringField;
    processos: TTable;
    DataSource3: TDataSource;
    Certidoes: TTable;
    DataSource4: TDataSource;
    processosProcesso: TAutoIncField;
    processosTipo: TStringField;
    processosData: TDateField;
    processosCliente: TStringField;
    processosAndamento: TMemoField;
    processosFinalizado: TBooleanField;
    CertidoesCliente: TStringField;
    CertidoesCertidao: TStringField;
    CertidoesVencimento: TDateField;
    Funcionarios: TTable;
    DataSource5: TDataSource;
    FuncionariosFuncionario: TStringField;
    processosFuncionario: TStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure processosCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fdados: TFdados;

implementation

uses uprocessos;

{$R *.dfm}

procedure TFdados.DataModuleCreate(Sender: TObject);
begin
clientes.open;
tipos.Open;
processos.open;
certidoes.open;
funcionarios.open;
//expediente.open;

end;

procedure TFdados.DataModuleDestroy(Sender: TObject);
begin
clientes.close;
tipos.close;
processos.close;
certidoes.close;

end;

procedure TFdados.processosCalcFields(DataSet: TDataSet);
begin
//fdados.processosnomecliente.value := fdados.processostipo.value;
end;

end.

